home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Harmless / Fortune / Source / FortuneMaker.m < prev    next >
Encoding:
Text File  |  1994-04-01  |  445 b   |  34 lines

  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "FortuneMaker.h"
  5. #import <appkit/appkit.h>
  6. #import "fortune.h"
  7.  
  8. @implementation FortuneMaker
  9.  
  10. - setViewer:anObject
  11. {
  12.     viewer = anObject;
  13.     return self;
  14. }
  15.  
  16.  
  17. - pickFortune:sender
  18. {
  19.      int i;
  20.      long random();
  21.      long randomNumber;
  22.     
  23.          randomNumber = random();
  24.     
  25.      i = abs(randomNumber % NUM);     
  26.      [viewer setStringValue:fortunes[i]];
  27.      
  28.  
  29.     return self;
  30. }
  31.  
  32.  
  33. @end
  34.